home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Extensions / GM Setup < prev   
Lisp/Scheme  |  1997-02-05  |  5KB  |  190 lines
  1. ; this file is loaded when SCOM starts up
  2.  
  3. ; NOTE! Setups are not installed in the MIDI menus anymore since they
  4. ; eat up too much of the limited menu item space. However, setups are
  5. ; loaded and you can use them in a normal way. To see what a setup
  6. ; contains simply open this file and browse it. If you want to jump
  7. ; quickly to the right setup, let's say gm-controllers, select
  8. ; List definitions from the Tools menu and double click the item.
  9. ; Then copy the controller name you want to use and paste it to the
  10. ; score.
  11.  
  12. (setq diagnose-verbose nil)
  13.  
  14. (def-sound-set gm-sound-set
  15.   group piano
  16.   acoustic-grand-piano   1
  17.   bright-acoustic-piano  2
  18.   electric-grand-piano   3
  19.   honky-tonk-piano       4
  20.   electric-piano-1       5
  21.   electric-piano-2       6
  22.   harpischord            7
  23.   clavi                  8
  24.  
  25.   group percussion
  26.   celesta                9
  27.   glockenspiel          10
  28.   music-box             11
  29.   vibraphone            12
  30.   marimba               13
  31.   xylophone             14
  32.   tubular-bells         15
  33.   dulcimer              16
  34.  
  35.   group organ
  36.   drawbar-organ         17
  37.   percussive-organ      18
  38.   rock-organ            19
  39.   church-organ          20
  40.   reed-organ            21
  41.   accordion             22
  42.   harmonica             23
  43.   tango-accordion       24
  44.  
  45.   group guitar
  46.   acoustic-guitar-nylon 25
  47.   acoustic-guitar-steel 26
  48.   electric-guitar-jazz  27
  49.   electric-guitar-clean 28
  50.   electric-guitar-muted 29
  51.   overdriven-guitar     30
  52.   distortion-guitar     31
  53.   guitar-harmonics      32
  54.  
  55.   group bass
  56.   acoustic-bass         33
  57.   electric-bass-finger  34
  58.   electric-bass-pick    35
  59.   fretless-bass         36
  60.   slap-bass-1           37
  61.   slap-bass-2           38
  62.   synth-bass-1          39
  63.   synth-bass-2          40
  64.  
  65.   group strings
  66.   violin                41
  67.   viola                 42
  68.   cello                 43
  69.   contrabass            44
  70.   tremolo-strings       45
  71.   pizzicato-strings     46
  72.   orchestral-harp       47
  73.   timpani               48
  74.  
  75.   group ensemble
  76.   string-ensemble-1     49
  77.   string-ensemble-2     50
  78.   synth-strings-1       51
  79.   synth-strings-2       52
  80.   choir-aahs            53
  81.   voice-oohs            54
  82.   synth-voice           55
  83.   orchestra-hit         56
  84.  
  85.   group brass
  86.   trumpet               57
  87.   trombone              58
  88.   tuba                  59
  89.   muted-trumpet         60
  90.   french-horn           61
  91.   brass-section         62
  92.   synth-brass-1         63
  93.   synth-brass-2         64
  94.  
  95.   group reed
  96.   soprano-sax           65
  97.   alto-sax              66
  98.   tenor-sax             67
  99.   baritone-sax          68
  100.   oboe                  69
  101.   english-horn          70
  102.   bassoon               71
  103.   clarinet              72
  104.  
  105.   group pipe
  106.   piccolo               73
  107.   flute                 74
  108.   recorder              75
  109.   pan-flute             76
  110.   blown-bottle          77
  111.   shakuhacki            78
  112.   whistle               79
  113.   ocarina               80
  114.  
  115.   group synth\ lead
  116.   lead-1-square         81
  117.   lead-2-sawtooth       82
  118.   lead-3-calliope       83
  119.   lead-4-chiff          84
  120.   lead-5-charang        85
  121.   lead-6-voice          86
  122.   lead-7-fifths         87
  123.   lead-8-bass+lead      88
  124.  
  125.   group synth\ pad
  126.   pad-1-new-age         89
  127.   pad-2-warm            90
  128.   pad-3-polysynth       91
  129.   pad-4-choir           92
  130.   pad-5-bowed           93
  131.   pad-6-metallic        94
  132.   pad-7-halo            95
  133.   pad-8-sweep           96
  134.  
  135.   group synth\ effects
  136.   fx-1-rain             97
  137.   fx-2-soundtrack       98
  138.   fx-3-crystal          99
  139.   fx-4-athmosphere     100
  140.   fx-5-brightness      101
  141.   fx-6-goblins         102
  142.   fx-7-echoes          103
  143.   fx-8-scifi           104
  144.  
  145.   group ethnic
  146.   sitar                105
  147.   banjo                106
  148.   shamisen             107
  149.   koto                 108
  150.   kalimba              109
  151.   bagpipe              110
  152.   fiddle               111
  153.   shanai               112
  154.  
  155.   group percussive
  156.   tinkle-bell          113
  157.   agago                114
  158.   steel-drums          115
  159.   woodblock            116
  160.   taiko-drum           117
  161.   melodic-tom          118
  162.   synth-drum           119
  163.   reverse-cymbal       120
  164.  
  165.   group sound\ effects
  166.   guitar-fret-noise    121
  167.   breath-noise         122
  168.   seashore             123
  169.   bird-tweet           124
  170.   telephone-ring       125
  171.   helicopter           126
  172.   applause             127
  173.   gunshot              128
  174. )
  175.  
  176. (def-controller-set gm-controllers
  177.   group general
  178.      Modulation-wheel 1
  179.      Expression 11
  180.      Sustain 64
  181.   group reset
  182.      Reset-All 121
  183.      Notes-off 123
  184.   group volume
  185.      Main-volume 7
  186.      Panning 10
  187. )
  188.  
  189. (setq diagnose-verbose t)
  190.